How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/EGYPTW.DIR/01711_Script_Superstitions

Text File | 1995-09-13 | 7KB | 239 lines

global gQuest, gBeenClicked

on ESuperRollovers
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) or rollover(7) then
      repeat while rollover(6) or rollover(7)
        EgyptCursor
        puppetsprite 11, true
        set the locH of sprite 11 to 295
        set the locV of sprite 11 to 322
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              SlaveDriver
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 11 to 995
      puppetsprite 11, false
      updatestage
    else
      if rollover(12) then
        ArrowCursor
        repeat while rollover(12)
          set the locH of sprite 13 to 353
          set the locV of sprite 13 to 163
          updatestage
        end repeat
        set the locH of sprite 13 to 953
        updatestage
      else
        if rollover(14) then
          ArrowCursor
          repeat while rollover(14)
            set the locH of sprite 15 to 415
            set the locV of sprite 15 to 248
            updatestage
          end repeat
          set the locH of sprite 15 to 915
          updatestage
        else
          if the mousecast = the castnum of sprite 8 then
            repeat while the mousecast = the castnum of sprite 8
              EgyptCursor
              set the locH of sprite 28 to 559
              set the locV of sprite 28 to 303
              updatestage
              if the mousedown then
                set GBeenClicked = 1
              else
                if gBeenClicked = 1 then
                  repeat while gBeenClicked = 1
                    DropBody
                  end repeat
                end if
              end if
            end repeat
            set the locH of sprite 28 to 959
            updatestage
          else
            if rollover(9) then
              repeat while rollover(9)
                EgyptCursor
                set the locH of sprite 16 to 425
                set the locV of sprite 16 to 329
                updatestage
                if the mousedown then
                  set GBeenClicked = 1
                else
                  if gBeenClicked = 1 then
                    repeat while gBeenClicked = 1
                      AnimateLoopFastest 9, 670, 3, "SE390601.AIF", 5
                    end repeat
                  end if
                end if
              end repeat
              set the locH of sprite 16 to 925
              updatestage
            else
              if rollover(10) then
                repeat while rollover(10)
                  EgyptCursor
                  set the locH of sprite 17 to 420
                  set the locV of sprite 17 to 320
                  updatestage
                  if the mousedown then
                    set GBeenClicked = 1
                  else
                    if gBeenClicked = 1 then
                      repeat while gBeenClicked = 1
                        AnimateLoopFast 10, 674, 5, "SE390801.AIF", 1
                      end repeat
                    end if
                  end if
                end repeat
                set the locH of sprite 17 to 920
                updatestage
              else
                if rollover(41) then
                  HandCursor
                else
                  if rollover(42) then
                    HandCursor
                  else
                    ArrowCursor
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on SlaveDriver
  ArrowCursor
  set gAnimationcast1 = 655
  set gAnimationcast2 = 658
  set count = 0
  puppetsound "SE390201.AIF"
  repeat while count < 2 and (the mouseUp)
    set the castnum of sprite 6 = gAnimationcast1 + 1
    updatestage
    wait .5
    if (the mousedown) then
      exit repeat
    end if
    set the castnum of sprite 6 = gAnimationcast1 + 2
    set the castnum of sprite 7 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set the castnum of sprite 6 = gAnimationcast1 + 1
    set the castnum of sprite 7 = gAnimationcast2 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set the castnum of sprite 6 = gAnimationcast1
    set the castnum of sprite 7 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .5
    set the castnum of sprite 7 = gAnimationcast2
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .5
    set count = count + 1
  end repeat
  set the castnum of sprite 6 = gAnimationcast1
  set the castnum of sprite 7 = gAnimationcast2
  updatestage
  sound fadeout 1, 2*60
  set gBeenClicked = 0
end

on DropBody
  ArrowCursor
  set gAnimationcast1 = 661
  set count = 0
  repeat while count < 1 and (the mouseUp)
    set the castnum of sprite 8 = gAnimationcast1 + 1
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if
    set the castnum of sprite 8 = gAnimationcast1 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .1
    puppetsound "SE390501.AIF"
    set the castnum of sprite 8 = gAnimationcast1 + 3
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .1
    set the castnum of sprite 8 = gAnimationcast1 + 4
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .1
    set the castnum of sprite 8 = gAnimationcast1 + 5
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .1
    set the castnum of sprite 8 = gAnimationcast1 + 6
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .1
    set the castnum of sprite 8 = gAnimationcast1 + 7
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .1
    set the castnum of sprite 8 = gAnimationcast1 + 8
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait 1
    set count = count + 1
  end repeat
  set the castnum of sprite 8 = gAnimationcast1
  updatestage
  puppetsound 0
  set gBeenClicked = 0
end